From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 25 Oct 2011 02:19:17 +0000 (-0400)
Subject: * lisp/comint.el (comint-get-old-input-default): Fix use-prompt-regexp case.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~1864
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=eedb2c2d6f7f7fa24dfff0bf1d71f058f48df76f;p=emacs.git

* lisp/comint.el (comint-get-old-input-default): Fix use-prompt-regexp case.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8c8f3890636..32c6ff67a03 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-10-25  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* comint.el (comint-get-old-input-default): Fix use-prompt-regexp case
+	(bug#9865).
+
 2011-10-24  Glenn Morris  <rgm@gnu.org>
 
 	* emacs-lisp/easy-mmode.el (define-minor-mode): Doc fix.  (Bug#9819)
diff --git a/lisp/comint.el b/lisp/comint.el
index 591be5e2d9d..dc3cdd9fa7a 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -2151,8 +2151,10 @@ current line, if point is on an output field.
 If `comint-use-prompt-regexp' is non-nil, then return
 the current line with any initial string matching the regexp
 `comint-prompt-regexp' removed."
-  (let ((bof (field-beginning)))
-    (if (null (get-char-property bof 'field)) ;Not `output'.
+  (let (bof)
+    (if (and comint-use-prompt-regexp
+             ;; Make sure we're in an input rather than output field.
+             (null (get-char-property (setq bof (field-beginning)) 'field)))
 	(field-string-no-properties bof)
       (comint-bol)
       (buffer-substring-no-properties (point) (line-end-position)))))